home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / timetrak / report.bas < prev    next >
BASIC Source File  |  1995-09-06  |  4KB  |  128 lines
  1.  
  2. Sub Print_Detail ()
  3.     linecnt = linecnt + 1
  4.     GetField ttrakRec, 5, "A"
  5.     dwho$ = Mid$(returnfld, 1, 3)
  6.     If dwho$ = "HDR" Then
  7.         If Mid$(savtotal, 1, 1) <> "0" Then
  8.             If printFlag = 1 Then
  9.                 report1.detail.Print Tab(15); "total hours: "; savtotal
  10.                 report1.detail.Print
  11.             Else
  12.                 printer.Print Tab(15); "total hours: "; savtotal
  13.                 printer.Print
  14.             End If
  15.         End If
  16.         GetField ttrakRec, 4, "N"
  17.         savtotal = RTrim$(returnfld)
  18.         Exit Sub
  19.     End If
  20.     GetField ttrakRec, 1, "A"
  21.     dProj$ = RTrim$(returnfld)
  22.     GetField ttrakRec, 3, "D"
  23.     dDate$ = returnfld
  24.     GetField ttrakRec, 4, "N"
  25.     dHours$ = returnfld
  26.     If printFlag = 1 Then
  27.         report1.detail.Print Tab(2); Mid$(dProj$, 1, Len(dProj$) - 1); Tab(22); RTrim$(dDate$); Tab(34); RTrim$(dHours$); Tab(41); RTrim$(dwho$)
  28.     Else
  29.         printer.Print Tab(2); Mid$(dProj$, 1, Len(dProj$) - 1); Tab(22); RTrim$(dDate$); Tab(34); RTrim$(dHours$); Tab(41); RTrim$(dwho$)
  30.     End If
  31. End Sub
  32.  
  33. Sub Print_header ()
  34.     If printFlag = 2 Then
  35. '         printer.fontname = "Tms Rmn"
  36.          printer.fontname = "courier"
  37.          printer.fontbold = -1
  38. '         printer.fontsize = 13.5
  39.          printer.fontsize = 12
  40.          printer.Print Tab(10); "Time Tracking Report"
  41.          pageno = printer.page
  42.          printer.Print Tab(16); "Page: "; pageno
  43.          printer.Print
  44.          printer.fontunderline = -1
  45.          printer.fontsize = 8.25
  46.          printer.Print Tab(2); "Project"; Tab(23); "  Date "; Tab(33); "Hours"; Tab(41); "Who"
  47.          printer.fontunderline = 0
  48.          printer.fontbold = 0
  49.          printer.Print
  50.     Else
  51.         report1.header.Print Tab(2); "Project"; Tab(23); "  Date "; Tab(33); "Hours"; Tab(41); "Who"
  52.     End If
  53.  
  54. End Sub
  55.  
  56. Sub Print_Report (direction As Integer)
  57.     If direction = 1 Then
  58.         If rc = PXERR_ENDOFTABLE Then
  59.             Exit Sub
  60.         End If
  61.         pageno = pageno + 1
  62.         key1(pageno, 1) = key1(pageno - 1, 2)
  63.         key2(pageno, 1) = key2(pageno - 1, 2)
  64.     ElseIf direction = 0 Then
  65.         If pageno = 1 Then
  66.             Exit Sub
  67.         End If
  68.         pageno = pageno - 1
  69.         If pageno = 1 Then
  70.             savtotal = "0"
  71.         End If
  72.     End If
  73.     report1.detail.Cls
  74.     report1.detail.currentX = 0
  75.     report1.detail.currentY = 0
  76.     report1.pagenbr.caption = "Page" + Str$(pageno)
  77.     rc = PXPutAlpha(ttrakRec, 1, key1(pageno, 1))
  78.     PXError
  79.     rc = PXPutShort(ttrakRec, 2, key2(pageno, 1))
  80.     PXError
  81.     rc = PXSrchKey(ttrakTbl, ttrakRec, 2, SEARCHFIRST)
  82. '    PXError
  83.     If pageno > 1 And direction = 1 And printFlag = 1 Then
  84.         PXNext ttrakTbl, ttrakRec
  85.     End If
  86.     linecnt = 0
  87.     If printFlag = 2 Then
  88.         rc = PXRecFirst(ttrakTbl)
  89.         PXError
  90.     End If
  91.     Do Until rc = PXERR_ENDOFTABLE
  92.         rc = PXRecGet(ttrakTbl, ttrakRec)
  93.         PXError
  94.         GetField ttrakRec, 1, "A"
  95.         key1(pageno, 2) = RTrim$(returnfld)
  96.         GetField ttrakRec, 2, "N"
  97.         key2(pageno, 2) = Val(returnfld)
  98.         If projFlag = 1 Then
  99.             If projectname = Mid$(key1(pageno, 2), 1, Len(projectname)) Then
  100.                     Print_Detail
  101.             End If
  102.         Else
  103.                 Print_Detail
  104.         End If
  105.         PXNext ttrakTbl, ttrakRec
  106.         If printFlag = 1 And linecnt = 15 Then
  107.             Exit Do
  108.         End If
  109.     Loop
  110.     If rc = PXERR_ENDOFTABLE Then
  111.         If printFlag = 1 Then
  112.             report1.detail.Print Tab(15); "total hours: "; savtotal
  113.             report1.Show
  114.         Else
  115.             printer.Print Tab(15); "total hours: "; savtotal
  116.             printer.EndDoc
  117.             screen.mousepointer = 1
  118.         End If
  119.     End If
  120.     If printFlag = 1 Then
  121.         report1.Show
  122.     Else
  123.         Unload prtfrm
  124.         Unload printselect
  125.     End If
  126. End Sub
  127.  
  128.